.DEVICE XGP
.!XGPCOMMANDS←"/TMAR=50/PMAR=2100/BMAR=50"

.FONT 1 "BASB30"
.FONT 2 "BDR66"
.FONT 4  "BDI40"
.FONT 7  "BDR40"
.FONT 8 "NGB25"
.FONT 9 "GRFX35"
.TURN ON "↑α[]↓_π{"
.TURN ON "⊗" FOR "%"
.TABBREAK
.ODDLEFTBORDER ← EVENLEFTBORDER ← 1000
.PAGE FRAME 54 HIGH 91 WIDE
.AREA TEXT LINES 1 TO 53
.DOUBLE SPACE
.PREFACE 2
.NOFILL
.PREFACE 1
.!XGPLFTMAR←100
.MACRO B ⊂ BEGIN NOFILL SELECT 9 INDENT 0 GROUP PREFACE 0 MILLS TURN OFF "{↑↓}[]α" ⊃
.MACRO E ⊂ APART END ⊃
.NEXT PAGE
.INDENT 0
.SELECT 1
.COMMENT Stage;
.GROUP SKIP 4
.ONCE CENTER SELECT 2
↓_The Stage is Set_↓

.BEGIN SELECT 7 INDENT 0 PREFACE 1



UNTIL-LOOPS: How do we know when to stop this loop, 
	and when to continue? 
	That is, how can we tell if the scene matches
	the model or fails to match?


USER: ⊗4The match fails if any feature in model's 
	features is incompatible with scene's features.⊗*


FOREACH-LOOPS:  I translate this into
  (Foreach F in Model-f (Not (F "is incompatible with" Scene-f))). 

.END
.SKIP TO COLUMN 1